home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Best of Shareware
/
Best of PC Windows Shareware 1.0 - Wayzata Technology (7111) (1993).iso
/
mac
/
DOS
/
PROGRAMG
/
FORTHCMP
/
FARMEM2.4TH
< prev
next >
Wrap
Text File
|
1992-03-30
|
1KB
|
35 lines
\ Far Memory management functions
\ Code Copyright (C) 1991 by Thomas Almy. All rights reserved.
\ Permission is granted to registered users of ForthCMP to sell or distribute
\ computer programs incorporating the compiled contents of this file.
\ Load farmem1.4th at the start of your program
\ Load load this file at the end of your program before FORTHLIB
10 HEX
UNDEF malloc CODE malloc
AX BX MOV 48 # AH MOV 21 INT
<U ~ IF, AX BX MOV AX AX XOR THEN, RET END-CODE #THEN
UNDEF FREE CODE FREE
AX ES >SEG 49 # AH MOV 21 INT RET END-CODE #THEN
UNDEF realloc CODE realloc
BX ES >SEG AX BX MOV 4A # AH MOV 21 INT
<U IF, -1 # AX MOV ELSE, AX AX XOR THEN, RET END-CODE #THEN
UNDEF salloc CODE salloc
SI POP AX AX ADD AX SP SUB SP AX MOV SI JMPI END-CODE #THEN
UNDEF sfree CODE sfree
SI POP AX AX ADD AX SP ADD SI JMPI END-CODE #THEN
UNDEF D>L CODE D>L
BX DX MOV
AX 1 ROR DX 1 ROR AX 1 ROR DX 1 ROR
AX 1 ROR DX 1 ROR AX 1 ROR DX 1 ROR
BX AX MOV 0F # AX AND DX BX MOV RET END-CODE #THEN
UNDEF L>D CODE L>D
DX DX XOR
BX 1 ROL DX 1 ROL BX 1 ROL DX 1 ROL
BX 1 ROL DX 1 ROL BX 1 ROL DX 1 ROL
DX AX ADD 0 # BX ADC AX BX XCHG RET END-CODE #THEN
0A = #IF DECIMAL #THEN